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EDITORIAL 


Ce mois-ci, JEDI marque son entrée 
en FORTH dans ie monde de la télématique. En 
effet, c'est depuis peu, et malgré quelque re- 


tard par rapport à la date prévue, que nous 
proposons sur le serveur SAM des programmes 
téléchargeables. Donc, d'ici peu, tout pro- 


gramme pour TO7 et T07/70 sortant de nos ate- 


liers sera expliqué et listé dans 1a revue, 
mais également diffusé par SAM. Ce nouveau 
service illustre bien l'intérêt des relations 


possibles et fructueuses ‘entre associations et 
sociétés publiques ou privées. Déjà dans un 
passé récent, JEDI et MICRO KIT s'associaient 
à l'occasion du SIiCOB 85 pour monter un ser- 
veur sur le stand JEDI. Les retombées de cette 
collaboration permettent maintenant d'apporter 
aux utilisateurs du VEGAS 6809 une assistance 
technique accessible par MINITEL. 


Une autre orientation de JEDI con- 
cerne les systèmes experts et l'intelligence 
artificielle. Très critiqué, le terme IA sug- 


gère trop souvent une image du programmeur si- 
milaire à celle du docteur Frankenstein. Or 
l'IA, au sens large, et ce qui en découle, se- 
ra, nous n'en doutons point, le moteur de 
l'informatique et de la télématique des pro- 
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chaines années. Réfléchissons un peu là dessus 
et voyons les possibilités; il est des domai- 
nes, le diagnostic de pannes automobiles ou 
l'expertise fiscale pour exemple, demandant 
des investissement considérables en temps et 
en argent pour mettre en place une applica- 
tion. Ces systèmes seront d'un prix inaborda- 
bles pour un usager désirant une expertise 
ponctuelle. En effet, qui investirait 4000, 
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employer ce produit. 


Dans ce domaine, la concurrence 
jouera aussi, et un service d'expertise par 
télématique respectant le dicton “moins cher 


pour plus de monde” aura beaucoup plus de suc- 
cès que les banques de données actuelles. Les 
Systèmes experts peuvent s'appliquer à tous 
les domaines: linguistique, médecine, électro- 
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Encore faut-il maitriser cette 
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FORTH Trois petits tours de main 


par JY SCLAVON 


Ecran | : 
SCR # ji , ü ‘ai ; 
9 t CODAGE À CLEF UNIQUE ) er ue un te 
À { TOUTES MACHINES } Fos : Programme vicieux ! En effet, toute tentative de 
codage avec un autre nosbre que celui qui a servi au 
: : Core { C AD NE -- ) Éd A re un codage suplémentaire î la probabilité de 
“ c : | k 
se 2DUP I + DUP ROT pi “ sur l'original après plusieurs essais est très 
é SWAP G XOR SWAP ! 
7 LOOP Ecran 2 : 
8 2DROP à; THIRES est le aot d'initialisation qui peraet de 
‘à orISee { au besoin de aodifier } le haut de la page 
out en conservant la page TEXT. Mais en raison de la 
11 ( © : CODE SUR ié BITS ) taille de la page TEXT, la haute résolution se linite alors 
12 { AD : ADRESSE DE DEPART ) à 2484128 point, ce qui s'avérera suffisant pour créer des 
13 { NB : NB D'OCTETS À CODER  ) effets surprenans { icones par exemple ... ) pour une 
14 machine de cette envergure, 
15 \ fonctionne en bascule et inverse l'état de l'écran à 
chaque fois qu’il est invoqué. 
SCR # 2 
&8 € UTILITAIRES HIRES POUR ORIC) Ecran 3: 
1 HCOPY recopie fidèlement la page HIRES sur la MT-88 | 
2 : THIRES ( -- ) les cercles sont circulaires, compas à l’appui ! }, 
3 HIRES TEXT ; . 
4 46699 336 255 FILL 
5 46352 32 & FILL 
6 5 764 C'!' 5 
7 
B 5 À { -- ) 
9 4890609 Ce = IF 31 ELSE © THEN 
19 48999 C! ; 
11 
12 { THIRES : INITIALISATION } 
13 | : BASCULE HIRES/TEXT ) 
14 
15 35S 
ORIC 1 
SCR # 3 
g { COPIE HIRES POUR ORIC -> MT-8@ ) 
À 2 JR Rd RD R> DUP R 
2 SWAP >R SWAP DR SWAP 3R 5 
3 
4 : HCOPY PON 
5 27 EMIT 51 EMIT lé EMIT 
6 39 # DO 13 EMIT 19 EMIT 
7 27 EMIT 75 EMIT 269 EMIT @ EMIT 
6 729 8929 DO 49888 I J + + 
9 C@ 64 - DUP @< IF DROP THEN 
16 EMIT -4@ +LOOP LOOP 
11 CR 27 EMIT 64 EMIT CR 
12 POF 3 
13 
14 55 
15 L 


FOR THopérations fractionnaires 


: Le langage FORTH ne disposant pas 
en standard des fonctions arithmétiques en vir- 
gule fiottante, il peut être néanmoins intéres- 
Sant de manipuler des nombres sous une forme 
fractionnaire. Et puis, en y réfléchissant bien 
1/3 est toujours plus précis que 0,33333333... 


décrites 
FORTH 


Les différentes routines 
ci-après ont été développées à partir du 


et permettent les opérations suivantes: 


+ PGCD ni n2 --- pgcd 
Délivre un nombre n tel que celui-ci soit le 
PGCD de n1i et n2. 
PPCM nl n2 --- ppcm 
Délivre un nombre n tel que celui-ci soit le 
PPCM de n1 et n2. 
FRINV ni n2 --- n2 nl 
Délivre sur la pile la fraction inverse repré- 


sentée par n1 et n2. Exemple: soit 3/7, son in- 
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AMSTRAD (celui-là même que nous avons implanté) 


FR/ 


par JL. BECHENNEC 


ce qui laisse 


verse est obtenu par 3 7 FRINV, 
sur la pile les nombres 7 3. 


REDUIT nn nd --- nr' nd’ 


Délivre sur la pile deux valeurs correspondant 
au numérateur et au dénominateur d'une fraction 
simplifiée. Exemples: 

5 15 REDUIT . . affiche 1 3 ( soit 1/3) 

7 11 REDUIT . . affiche 7 11 


FRx fri fre --- frixfr2z 
pour fr correspondant à nn nd 


Effectue le produit de deux fractions. Exemple: 


1 3 6 15 FRx . . affiche 6 45 
€ soit (1/3)*x(6/15)) 

6 45 REÉDUIT . . affiche 1 5 
fri fre --- fri/fr2 


Effectue la division de deux fractions. Mêmes 
principes que FRx. 


FR+ fri fr2 --- fri+fr2z 


Effectue la somme de deux fractions. idem FRx*. 
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PILOT par Michel ROUSSEAU 
PILOT : UN LANGAGE POUR L'EAO 


Depuis quelque temps, il n'est plus question que d'EAO et de 
plan IPT, Pour ce faire on propose une foule de "méthodes" aux 
noms plus ou moins "fruités" et dont la simplicité de mise en 
oeuvre (meme quand il s’agit de systèmes auteurs) n'égale guère 
le "tire la bobinette et la chevillette cherra" du conte, Or, il 
faut se rendre à l'évidence : la société basculant rapidement 
dans un Système de communications sophistiquées et subissant de 
ce fait une accélération des échanges d'informations, il devient 
absolument nécessaire de produire des didacticiels performants, 
capables de seconder efficacement les professeurs, Voilà pour le 
couplet économique. Fermons le ban et passons aux choses 
sérieuses, 

A dire vrai, de nombreux langages permettent la réalisation 
de logiciels suffisamment interactifs pour supporter le qualifi- 
catif d'éducatifs. Parmi ceux-ci, il en est un, peu connu eh 
Europe, mais qui, a notre sens, mérite largement qu’on le 
réhabilite. Nous voulons parler de PILOT, Créé au début des 
années 60 par John Starkweather du California Medical Center de 
San Francisco, il trouve sa maturité dans les travaux du Dr. Dean 
Brown du Laboratoire de Fropédeutique du Standford Institute, 
travaux s'échelonnant de 1967 à 1974, et qui prouvérent la 
parfaite adéquation du langage à l’enseignement assisté par 
ordinateur ainsi qu'à l’apprentissage de la programmation par les 
enfants. PILOT signifie Frogrammed Inquiry, Learning Or Teaching, 

Généralement écrit en PASCAL, ce langage présente de grands 
avantages sur le BASIC. Tout d’abord, destiné à manipuler des 
questions-réponses, il est doté de fonctions de comparaison de 
chaines bien plus simples que celles du BASIC et de la plupart 
des autres langages, Cela ne veut d’ailleurs pas dire que ces 
fonctions sont simplistes, loin de là ! 

Ensuite, bien que doté de numéros de ligne, il fonctionne la 
plupart du temps en employant des sous-programmes labellisés, ce 
qui permet de concevoir des applications modulaires directement 
réutilisables dans d’autres programmes. 

Enfin, il intègre souvent une tortue graphique, ce qui 
permet d'apprendre les primitives des versions enfantines de 
LOGO, 


LE LANGAGE TEL QU'EN LUI MEME 
Ainsi que nous vous l'avons déjà dit, PILOT est surtout destiné à 
des applications textuelles. Aussi, la première instruction est- 
elle, bien évidemment, conçue pour permettre d'imprimer du texte: 
Elle s'appelle T: 
Si vous tapez 
T: BONJOUR ! 
BONJOUR ! 
sS'inscrira immédiatement à l'écran, ceci parce que vous etes en 
mode immédiat. Four passer en mode programme, il suffit 
d'attribuer un numéro de ligne à votre instruction. Ainsi 
10T: BONJOUR ! 
ne sera suivi d'aucune exécution tant que vous ne ferez point un 
RUN. Déjà à ce stade il convient de faire trois petites remarques: 
-il est important de ne pas séparer le numéro de ligne de Ja 


mes à 
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commande T: 
- si vous désirez présenter votre programme de façon plus 
lisible, il sera nécessaire d'utiliser des indentations, Celles- 
ci sont possibles dès que l’on place une virgule derrière le 
numéro de ligne. Ainsi : 

10, T: BONJOUR 

20T:LE FOND DE L'AIR EST FRAIS. 

11 est tout à fait possible d' enchainer plusieurs chaines de 
caractères. Pour ce faire, vous ferez suivre la première chaine 
d'un “"backslash". Ainsi : 

10T: BONJOUR ! 

20T: LE FOND DE L'AIR EST FRAIS 

donnera lors de son exécution 

BONJOUR ! LE FOND DE L'AIR EST FRAIS 


Vous pourrez, bien entendu, LISTer votre programme et insérer de 
nouvelles lignes, en supprimer, voire meme RENuméroter votre 
applicationj Ce qui aura pour effet de multiplier par dix les 


numéros de ligne. Ainsi 

1T: BONJOUR 

2T: LE CIEL EST BLEU 

REN 

donnera lors du LISTage 

10T: BONJOUR 

20T: LE CIEL EST BLEU 

Si vous voulez commenter votre programme (ce à quoi nous vous 

engageons vivement !), il vous suffira d'utiliser la commande R: 
Exemple : 

10R: PNR PP NE PE PE PE PT ET ETES ETES 


20R: * x 
3OR: * DIDACTICIEL HISTOIRE * 
4OR: * # 


SOR! XXE EEE 

60T: IL ETAIT UNE FOIS UN PETIT CHAPFERON ROUGE 
donnera après un RUN 

IL ETAIT UNE FOIS UN PETIT CHAPERON ROUGE 
Tandis que LIST fera s'afficher | 

L1OR: HR EEE 


2O0R: * x 
SOR: * DIDACTICIEL HISTOIRE * 
4OR: * * 


SOR: HA ENNNNENNNPNNNNE 
60T: IL ETAIT UNE FOIS UN PETIT CHAPERON ROUGE 


À ce propos: nous vous conseillons d'employer la méthode 


suivante: 
Toujours placer les commentaires en début de module et leur 
attribuer une dimension réduite (10 à 20 lignes max imum) 


Mais si la commande T: est indiscutablement trés utile, elle ne 
nous mène pas très loin. Encore faut-il pouvoir rentrer des 
réponses et les comparer avec des réponses type. 

LES COMMANDES A: ET M: 
La commande A! est une instruction acceptant votre entrée, 


Voici un exemple de son emploi : 
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10T: QUELLE EST LA VITESSE DU SON ? 
204: 


Il est évident qu’il devient nécessaire de donner une réponse 
type pour pouvoir continuer le QUIZZ, Cette réponse, c'est vous 
qui la fournirez dans le didacticiel en faisant suivre la demande 
d’'input A: du modèle de réponse qui y sera comparé, Ce modèle 
s'introduit au moyen de la commande d’unification M: (M pour 
Match). Exemple : : 


10T: GUELLE EST LA VITESSE DU SON 7? 


20A: 


Première constatation : la commande M! admet plusieurs compara- 
tifs. 11 est ainsi possible d'obtenir la comparaison avec 
plusieurs réponses possibles qui peuvent etre soit identiques, 
soit totalement différentes, Ainsi peut-on permettre à l'étudiant 
plusieurs solutions à un meme problème quand cela s'avère 
nécessaire. 

Mais il est bien beau d'opérer une comparaison si ce n'est pas 
pour sighaler la justesse (ou la fausseté) de la réponse fournie, 
Nous retrouvons alors notre commande T', mais qui s'assortit 
cette fois d'un Ÿ ou d’un N. L'exemple suivant va vous faire 
immédiatement comprendre leur emploi, 


10T: QUELLE EST LA VITESSE DU SON ? 
20A: 


40TY: TOUT À FAIT JUSTE ! 
SOTN: À COTE DE LA PLAGLE ! 


Si vous avez répondu 300 m/s à la question, vous verrez 
s'afficher “TOUT À FAIT JUSTE !" 

Si, par contre, vous avez confondu avec la vitesse de la lumière, 
c'est le message "A COTE DE LA PLAQUE !'" qui s'’affichera. 

Vous pourrez d'ailleurs suivre l'exécution séquentielle du 
programme en tapant TRACE ON. Cela donnera ceci : 


-- 10T: QUELLE EST LA VITESSE DU SON ? 
QUELLE EST LA VITESSE DU SON ? 
-- 204: 

(votre réponse) 


-- 40TY: TOUT À FAIT JUSTE ! 
40TY: TOUT À FAIT JUSTE ! 


Pour sortir de la fonction TRACE, il vous suffira de faire un 
TRACE OFF. 
Mais ce type de programmation est encore très rudimentaire, du 


fait de son aspect exclusivement séquentiel. Aussi doit-on etre à 
meme de permettre à l'étudiant d'essayer plusieurs fois de trou- 
ver la bonne réponse, tout en lui fournissant au fur et à mesure 
des explications complémentaires qui le mettront sur la voie. 
Comment faire ? C'est ce que nous verrons le mois prochain ! 


SEPT no 19 TCSs 


SOM: 330 m/s,330 mètres par seconde, trois cent trente mètres/seconde 


SO0N:330 m/s,330 mètres par seconde, trois cent trente mètres/seconde 


-— JON:330 m/s,330 mètres par seconde, trois cent trente mètres/setonde 
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MUMPS __ 6 ème partie par. Yannick LE GRAS 


UIII NOTION DE LIGNES EN MUMPS 


A) Structure des lignes 


Tout le code MUMPS est organise sous forme de lignes, Chaque ligne contient 
une ou plusieurs instructions ‘ou commandes) et se termine par un retour 
chariat (souvent appelé <retuyrn) ou <cr)). - 


La ligne de code MUMPS n'est pas limitée à la ligne physique de l’écran 
ésouvent de 89 caractères). Elle peut, en fait, contenir 255 caractères, 
l'étiquette y compris. Nous reviendrons ultérieurement sur ce qu'est une 
etiquette, Le retour chariot ne fait pas partie de la ligne en tant que 
caractère. MUMPS reconnait deux types de lignes : 


- Les lignes de commande 


- Les lignes de programme Cou routine) 


B) Lignes de commande 


Une ligne de commande est constituée de une ou plusieurs instructions 
commandes) que vous entrez en vue d'une exécution immediate. C’est ce que 
nous appelons être en mode direct, par contradiction au mode indirect 

{appelé souvent mode programme), 


MUMPS reconnait qu'une ligne entrée au terminal est une ligne de commande 
selon son format. La forme générale d’une ligne de commande est la suivante : 


{commande} {argument(s)i,,,,.,,{commande) Carqument(s)i( ;commentaire}<cr? 


Dans laquelle : 
- commande représente tous verbes valides (commande) Exemple: Write atc,,. 
- arqument(s) correspond au(x) argumentis) de la commande 


- commentaire représente une remarque, Nous y reviendrons dans un prochain 
paragraphe 


- cr} représente le retour chariot, 


Exemple : 


READ !,"entrez votre poids (en Kilos) : "POIDS SET PT=POIDS/1480 WRITE 
“votre poids est de : “,PT," tonne(s)" 


Dans cet exemple, l'exécution de cette ligne a engendré plusieurs actione, 

Le curseur est passé à la ligne; le message entrez votre poids ‘en Kilos! 
est émis; la machine attend une entrée au clavier, affecte à la variable 
POIDS la saisie; le contenu de la variable PT est alimenté par le resultat du 
calcul POIDS/1008; le message votre poids est de : est affiché, suivi du 
contenu de la variable PT, puis du libellé " tonnets)". 


Ci Lignes de programme 


. Une ligne de programme est constituée d'une ou plusieurs instructions 
entrées pour une exécution differée/ultérieure, Quand on a validé cette ligne 

à l'aide du retour chariot, MUMPS la stocke en mémoire. Le code spécial <tab} 
doit être présent dans une ligne de programme afin que MUMPS fasse la 
différence entre une ligne de programme et une ligne de commande, Une 
étiquette (ou label) peut etre insérée en tête d'une ligne de commande. 
Celle-ci sera séparée du corps de la ligne par Île caractère ‘tabh?, Dans le 
cas ou la ligne n'a pas d'étiquette, elle commence par Île caractère (tab). 


Voici ja forme générale d'une ligne de programme 


{label}<(tab)commande) {arguments}...,.{commande} (arqgumentsïi ;commentaire3 


TELE MAT METES 


label est équivalent à une etiquette 

{tab} est la touche spéciale tab 

commande est le verbe fou insiruction/commande) 

arguments est le ou la liste des srgumente associés à la commande 
- coamentaire est 1x remarque associée à la liqne 
Exemple : 


DEBUT<tab'U 4,"mumps ways dit bonsour",! jlere ligne de programme 


Do Etiquette 

L'étiquette d'’ure ligne est un nom qui permet d'identifier une ligne, Elle 
répond, comme pour les variables, à la meme règle de définition. Mais elle ne 
doit, en aucun cas, dépasser huit caractères, Bien sntendu, une Ét:quette ne 
doit apparaître qu'une seule fais dans un programme, Le label est 
particulièrement utile pour les branchements, 


E) Commentaire 


Le dernier paramètre d’une ligne peut être une remarque * 

est isolé du reste de la ligne à l‘aide d'un paint virgule {; 

constitué de n’importe quel texte composé avec les caractères nf 
visuyalisables, MUMPS n'’exécutera jamais ce qui se trouve derrière un point 
virgule, Lorsqu'on écrit des programmes, il est tres vivement recommandé 
d'utiliser les commentaires pour expliquer les traitements, niez à Ja 
maintenance LI1 On peut, Également, trouver un commentaire ne 

de programme, aver ou sans etiquette, 


Exemples : 
\taboj;cect est un commentaire 


table programme commence à cotte ligne 


NOTE : Si un commentaire suit des commandes un espace doit etre ins@ré entre 
le(s) dernier(s) argument(s) et le paint virgule, 


Fi Le caractère {tab> 


Le caractère (tab) (valeur décimale © dans la table ASCIIY est l'un des 
caractères de contrôle non visualisables, disponnibles en MUMPS. Si votre 
Clavier ne comportait pas la touche tab générant le code {tab>, vous pourriez 
le simuler à l’aide de Ia touche contrôle tctrl) et la touche J, entrées 
simultanément, 


IK< COMMANDES DE CONDITION SUR-'DANS LES LIGNES 
A) La commande IF 


Une des plus grandes aptitudes des ordinateurs réside dans le fait qu’ils 
sont capables d'exécuter des ordres de facon conditionnelle, MUMPS permet de 
spécifier, de plusieurs manières, l'expression d’une conditian applicable à 
une action. Nous avons déja vu, dans les chapitres précédents, la fonction 
SELECT ainsi que la mise en oeuvre des postconditions pour les commandes, 
Maintenant, nous allons étudier la commande IF qui s'applique cette fois-ci, 
non pas à un verbe mais, à une ligne, La condition mentionnée avec la 
commande IF implique que le reste de la ligne est, où non, éxécuté (partie à 
droite de la commande IF), Par exemple, disons que 1a variable X est égale à 
5 et la variable Y est égale à 3, Considérons, maintenant, la ligne de 
commande suivante : 
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IF Y<X SET 2=Y4X WRITE "7 = °,2 
Dans cet exemple, nous voyons que la condition Ÿ inférieur à X est vérifiée, 
MUMPS, dans ce cas, exécutera les ordres GET et WRITE. La décomposition de la 
ligne est la suivante : 
- test de 1a condition 


- alimentation de la variable 2 avec le résultat du calcui Ÿ modulo X 


- envoi à 1’ écran du message 2 = suivi du contenu de la variable 2 


Si l'on inversait la condition, à savoir X4Y, aucune action ne se produirait. 


À certaines occasions, lorsque nous nous exprimons, la dernière condition 
que l’on avait évoquée est sous-entendue, MUWMPS permet Également cette forme 
de pensée, Analysons la suite de lignes suivante, apres avoir affecté à la 
variable AGE la valeur 16 et à la variable REGION la chaîne de caractères 
“Alsace”. 


IF CAGE) 15)&CAGE<22)&RCREGION="Alsace") W ! 

IF W “puisque vous avez ",AGE," ans" 

IF WW !,"et que vous habitez en “,REGION 

IF W !,"vous ne pouvez pas voter, mais vous pouvez fumer" 


Les actions produites seront les suivantes, sachant que toutes les 
conditions énoncées sont verifiées : 


— passage du curseur à la ligne 

- écriture du message : puisque vous avez 16 ans 

- passage à la ligne suivante 

- affichage de : et que vous habitez en Alsace 
- passage à la ligne 


- affichage de : vous ne pouvez pas voter, mais Vous pouvez fumer 


Gans le savoir nous venons d’utiliser la variable système $TEST, 11 est à 
remarquer, de suite, que la forme d'écriture des trois derniers IF apparaît 
sans qu'une condition soit spécifiée, [ls sont séparés du verbe suivant par 
au mains deux espaces. 


B) La variable $TEST (ou #7) 


Cette variable est alimentée par le systeme, au même titre que $X et #4Y. 

Elle contient toujours zéro ou un, En fait, 11 s'agit du resultat de la 
derniere condition évaluée (nous vous rappelons que @ et Î{ sont des contenus 
logiques faux ou vrais). La variable $TEST est donc une variable logique. 
Nous radotons certainement, mais on s'aperçoit que les cancepts de MUMPS sont 
définis pour être au plus proche de la forme d'expression humaine. 


Ci La commande ELSE 


De temps en temps, il est nécessaire, dans le cas d’une condition non 
vérifiéeet seulement dans ce cas, d’exécuter un certain nombre d'actions. 
C'est ce que permet de faire la commande ELSE, Reprenons le dernier exemple 
et ajoutons une nouvelle ligne, incluant la commande ELSE 


Attention !!! La commande ELSE est toujours suivie de deux espaces, 


IF CAGE)15)&CAGE<22)8&CREGION= "AT sace") WW ! 

IF W "puisque vous avez "AGE," ans 

IF W !,"et que vous habitez en ",REGTON 

IF W !,"vous ne votez pas, mais vous pouvez fumer" 
ELSE W !',"vous avez tous les droits” 
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Si AGE n'est pas compris entre 15 et 22 ou que le contenu de REGION soit 
différent de "Alsace" Île message vous avez tous les droits sera affiche à 
la ligne. 


RESUME 


Dans les deux chapitres précédents, nous avons étudié le concept de la ligne 
MUMPS en identifiant ses principaux composants et en montrant que des actions 
multiples peuvent être exécutées sur une ligne, D'autre part, nous avons vu 
l‘exécution conditionnelle d’une ligne entière, ou en partie, 4 l’aide des 
commandes IF et ELSE. Rappelons que ces commandes ne s'appliquent qu'à la 
ligne dans laquelle elles apparaissent. 


SUITE DE LA PAGE 2 


FR- fr1 fr2 --- fri-fr2 
Er . . SCR # 71 

EfF t 1 d 

sus ue la différence de deux fractions. Idem 8 € INVERSE, REDUIT, FR#, FR: ) 
1: FRINV € ni n2 --- n2 ni 2 

FR@ adr --- nn nd 2 SWAP ; 

Dépose sur la pile le numérateur nn et le déno- 3 

: ; . . ; 4 : REDUIT © nd --- 17 dr 2 
t da d bi 

minateur n une variable fractionnaire. 5 2DUP PGCD 

FR! nn nd adr --- 6 DUP ROT SWAF 

Affecte les valeurs nn et nd à la variable À 7 2R 7 R3 SURP ; 


fractionnaire dont l'adresse est au o 
FRERE JS 9: FRk C Fri fre == frixfr2) 


la pile. 
se 19 SWAP 2R *X 
FRCONST nn nd --- ‘mot: en compilation 11 SURP RD *% 
<mot> dépose nn nd en exécution 12 SWAP REDUIT ; 
ane : ; é 13 
Définit une constante fractionnaire. 14 à FR € Pri Fn2 = fri/Fr2) 
FRVAR nn nd --- mot» en compilation 15 FRINV FR& ); 1S 
<mot> dépose adr en exécution 
définit une variable fractionnaire. SCR # 72 
Exemples: D © FR+, FR-, FRMINUS, FR& ) 


1 FR+ € Fri fr2 =-- fritfr2i 


186 1000 FRCONST TVA >R OVER * 


1 
i 2 
,. € soit 18,60 % ) 

145 1 TVA FRx 3 ROT R *# + 
€ soit (145,00*x18,60)/100)) 4 SWAP RD *# 
ce qui donne 26970 1000 2 REDUIT ; 
7 
8 
9 


( soit 26970/1000 - 26,97) D FRMINUS OC Fr === Fr 
SURP MINUS SWAP  ; 


Pour éviter un dépassement de capacité, on peut 
procéder comme suit: 


145 1 TVA REDUIT FRx 1@ : FR € Fri fre = fri-fr2 D 
ce qui donne 13485 500 11 FRMINLS FR+ ) 

si on réduit 13485 500 REDUIT 12 

on obtient 2697 100 13 : FRC Ç ADR = np qd 5 

Un conseil quand même, évitez de manipuler des 14 20 , 

valeurs trop importantes. En général, ces rou- 15 38 


tines seront d'une aide précieuse pour tout 1v- 
céen pratiquant !l'arithmétique et manipulant 
des fractions et obligé de ne pas donner de 
résultat décimal. 


SCR # 70 SCR # 73 

8 € CALCUL DU PGCD ) 9 € FR!, FRYAR, FRCONST )) 

ÿ : PGCD € ni n2 --- PGCD à LA OO: FR! OC nd adr = ÿ 21 ; 

2 2DUP 2 

3 © IF SURF THEN 3 : FRVAR € nd = émot> en compilation ? 

4 BEGIN 4 ZVARIAELE « -—— adr en interPretation à 

5 SWAP OVER MOD DUF s 

6 Gæ UNTIL 6 : FRÉOMST € On d --- émotr en compilation D) 

7 DROP ; 7 2CONSTANT € --- nd an interPretation ; 

& 8 :i$ 

9 : PPCM € ni n2 --- PPCM q 

18 2DUP PGCD */ : ‘a 

11 3S ii 

12 1Z 

13 13 


En 
PS 

a 
BR 


TEDT ne IF DECES 9 


ren 
Le] 
Fa 
cn 


FORTH … ACFE extensions 


Nous avons reçu le numéro 2 de "VIERTE DI- 
MENSION", dont nous avons extrait ces quelques 
routines applicables au JUPITER ACE. Ces routi- 
nes sont présentées en deux parties, la premiè- 
re contient les définitions manquantes les plus 
utilisées, la seconde des utilitaires de mise 
au point. 


16 BASE ‘! 
HEX 
BIN 


{ HEX ) 
10 BASE ! ; Ê 
2 BASE ! ; 
.D Cn -- ) DECIMAL 
.H Con >)  HEX DECIMAL ; € dec 
-( tnom> -- ) FIND 2+ ; 
? C adr -- > @ . ; 
2DUP € di -- di di }> OVER OVER ; 
NOT € tf - ff ) 0= 5 
-DUP € n -- nn si n<>O ) DUP IF DUP THEN ; 
?DUP € n -- nn si n<)0 -DUP ; 
LATEST Ç -- adr ) CURRENT @ @ ; 
TRAVERSE { adri n1 -- adr2 ) SWAP 
BEGIN OVER + 7F OVER C@ < UNTIL 
SWAP DROP ; 
nfa -- ) 1 
pfa -- >) 5 
pfa -- cfa ) 2 ; 
pfa -- 1fa ) 4 - ; 
COUNT ( adri -- adr2z n ) DUP 1+ SWAP C@ ; 
: R Ç -- u D I ; 
20 CONSTANT BL 
-TRAILING € adri nl -- 
DUP O DO.2DUP + 1 - 
IF LEAVE 
ELSE 1 - 
THEN 
LOOP ; 
-FIND € -- pfa b tf ) 
BL WORD HERE CONTEXT @ @ DUP O-= 
IF  DROP HERE LATEST THEN ; 
+-  ( ni n2 -- n3 > O< IF NEGATE THEN ; 
TOGGLE ( adr b -- } OVER C@ XOR SWAP C! ; 
SMUDGE ( nfa -- )} 20 TOGGLE ; IMMEDIATE 
O<> € n -- flag ) O= NOT ; 
?TERMINAL ( -- flag ) INKEY O0» ; 


Et voici les définitions spéciales qui ne 
sont pas décrites par le manuel du Jupiter ACE. 


IMMEDIATE 
IMMEDIATE 
HEX ; ( hex vers dec) 


vers hex) 


pfa 
nfa 


TRAVERSE 5 + ; 
- -1 TRAVERSE ; 


adri n2 ) 
ce BL - 


HEX 
NOOP ; 
RAMTOP. ( -- adr ) 3C18 @ ; 
3C37 CONSTANT DP 
3C3B CONSTANT SP 
: .S (€ --) CR CR SP @ HERE C 
." 11 TOS ” 
CR I @ 
DROP DROP 
STACK EMPTY 


variables sys.) 
variables sys. 
variables sys.) 
2DUP - 


2 +LOOP 


BEGIN ?TERMINAL UNTIL ; ( key?) 
.S HANG 800 O DO NOOP EOOP ; 
( point d'arrêt avec attente) 
VARIABLE SOURCE O VARIABLE DESTIN 
CMOVE ( adrorig adrdest nombre -- ) 
ROT ROT 1- DESTIN ! 1- SOURCE t! 
O DO SOURCE @ 1+ DUP SOURCE ! c@ 
DESTIN @ 1+ DUP DESTIN ! C!{ 
LOOP ; 
FILE { adr quan b -- } ROT ROT OVER + SWAP 
DO DUP I C! LOOP DROP ; 
ÉRASE ( adr count -- ) 0 FILL ; 
BLANKS € adr count -- ) 20 FILL ; 
utilitaires de DUMP ) 
(XCH) € c -- bl ) DROP 20 ; 
(TEST) DUP F > IF 
ELSE DUP DUP 18 <« 


BREAK « 


1F CXCH) THEN 


ELSE DUP 98 « IF (XCH) THEN 
THEN ; 
(ASC) DUP DUP 8 + SWAP 


DO 1 C@ (TEST) EMIT 2 SPACES LOOP ; 
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“PAD COUNT IF AND TYPE SPACE 


et communication 
par Ludwig RICHTER-ABRAHAM 


(ZE) 
DO 


DUP DUP 8 + SWAP 
1 C@ DUP 10 « 
IF SPACE THEN 
LOOP  ; 
CIND) 6 SPACES 8 0 
DO I SPACE LOOP CR CR ; 
CHDUMP1) DUP U. SPACE (ZE) CR 8 + 
CHDUMP2) DUP U. SPACE (ZE) CR 
8 SPACES (ASC) 8 + 
DU1 CR CIND) O 
DO  (CHDUMP1) 
DU2 CR CIND) 0 
DO CHDUMP2) LOOP CR 
1D.  PAD 20 5F FILL 
DUP PFA LFA OVER - 


LOOP CR ; « 


PAD SWAP CMOVE . 
SECONDS ( n -- ) O DO / 
8400 O DO LOOP 
LOOP ; 
MILLISEC ( n -- 
80 O DO LOOP 
LOOP  ; 


) 10 / O DO 


par J. HIRSZOWSKI 


Le Jupiter ne comportant pas d'interfaces 
standards, le branchements des périphériques 
( imprimante, modem, etc...) nécessite à priori 
une carte d'adaptation au bus. 

pour une liaison série on peut laisser li- 
bre le bus en utilisant MIC et FEAR; voici un 
programme pour sortir sur MIC les caractères 
présentés à l'écran; on obtient une sortie TTL 
tamponnée, en prélevant le signal en amont du 
condensateur de sortie (cf. figure 1) pour 
l'inverser par un simple transistor T; la pola- 
risation de T peut être assurée par le périphé- 
rique lui-même, si celui-ci présente une résis- 
tance de rappel au +5V, comme c'est le cas par 
exemple pour le MINITEL. Le format série choisi 
est: 7 bits par caractère, 1 bit de parité pai- 
re et un bit de stop, ceci en 300 bauds. 


7BITS 

7 O DO 2 /MOD 
BITPARITE O 92 

DO 1 PICK + 
FORMAT 

7BITS BITPARITE O0 10 2 DO I ROLL O= 
( retournement de la pile on complémente ? 
{ les bits sur D3 ) 

8 x LOOP 8 € bit de start) 


LOOP DROP ; 


LOOP 1 AND  ; 


TBIT ( bit -- transmission ) 
254 OUT 23 0 
DO LOOP ( délai-duree 1 bit) 
( car -- emission sur MIC) 
FAST FORMAT 
10 O DO TBIT LOOP SLOW ; 
( les car sont lus dans la mémoire d'écran) 
( ainsi, pour recopier la ligne n ...) 
LIGNE ( no de ligne -- ) 
32 *x 9126 + DUP 
32 + SWwWAP u 
DO I C@ TX LOOP 
13 TX 10 TX € CR+LF) : 
( et pour recopier l'écran 
ECRAN - 
23 O0 DO 1 LIGNE LOOP ; 


TX 


CONTACT 


Ludwig RICHTER-ABRAHAM Lilienthalstrañe 1 
6103 GRIESHEIM RFA pour les extensions sur 
Jupiter ACE. 


J. HIRSZOWSKI au Club Paris Micro 
(APAGECISE) 10, rue Erard 75012 PARIS France 
pour les routines de transmission série. 


— 


À) Dane le TUPITER : 


T«2N2929 


FORTH rrucs ET TOURS DE MAIN par _l" ami KRO 


HESIQR_HRX : FORTH 


UN TONE SANS VIBRATO par MHC 

Le mot TONE tei que defini dans le HRX 

produit un son vibrato,. La raison tient 

au fait que les interruptions du micro 

sont validees pendant l'emission du son, RE 4 Ê 

On peut y remedier en les interdisant EMIT THEN 

durant la production de la note. : #e = 

Ii nous faut d'abord definir les mots P ASC i+ LOOP ; 

DI et EI qui interdiront et valideront DR 

les interruptions, 00P DASC : 
RMINAL 

Deux definitions vous sont proposees EN 

selon que vous disposez où non de 

l'assenbieur-Forth pour HRK, 


Le] 
m 
o 


Avec Assembleur Forth 


HEX CODE DI DI: NEXT 7 
CODE EI El, NEXT DECIMAL Releve sur SAM 


TTÔONE DI TONE ET : TELETEL 3 


l'assembleur Forth 


SMUDGE 
SMUDGE 


, 
€ 
n 
n 
j 
n 
, 
n 
# 
U 
, 
n 
, 
4 
n 
n 
n 
na 
, 
n 
, 
n 
, 
n 
% 
4 
n 
n 
n 
4 


crunsuvauusemsmnveunemssansnenaianeutvaus en se mn me 


o TELECHAMP 


‘rats a a Daÿys 7 PS 2PATAYSERIDUNYAIATAPANAPAIAIAPEPAYANAISIDIAUAIAPAIR 
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,… 
n 


CTLECCOPEOEE CCEEC CCE 


" 


COPDOEIDCLCOEE CPR 
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FORTH par Michel HENRIC — COLL 


COMMENT CREER SOUS B3X DES IMAGES ec 
FORTH DE GRANDE DIMENSION ECRAN No iS 


Pour pouvoir créer une image FORTH dont 25 MSG" INDICE INVALIDE" 
la définition dépasse 255 caractères, il suffit FORGET ME : ME : 
de prendre autant d'écrans FORTH que nèc sai- Fe , 
res nues di Veusrdue sur cassette. Fo 10 CONSTANT Dx 10 CONSTANT Dy 
11 faut tout d'abord initialiser de la 10 CONSTANT Dz QG VARIABLE acte 
manière habituelle (en mode direct): 0 VARIABLE cpt 


CLEAR 255,&9FFF 


DIM Dx Dy * Dr *X 2*#: 
COLD &A000,&B88C 


O VARIABLE TABLEAU DIM 2- ALLOT 


tapez FORTH QUIT (vous êtes sous FORTFH) à 
1 OPEN (ouvre l'écran n°1) : NON © SWAF ! $ 
EDITOR ee sous pe » QUI i SWAP ! : 
avec les commandes habi- 
tuelles) : RAZTRL TABLEAU DIM ERASE ; 
O P 4 BASE ! . (description du dessin) : INCLUS? 
1 P 1111 1111 1111 à ; Le 
2 P 2222 2222 2222 OVER > SWAP 1+ 0% AND ; 
ete: : PERMIS? { a bc -- a b c) 
Si le dessin dépasse un écran, ne pas oublier SR 


de chaîner (-->) et ouvrir le second écran. 


rs nu Lt ; 7 DUF Dx INCLUS”? 
i le secon cran ne suffit pas, même procédu- : | 
re, ouvrir le 3ème écran, HECTOR demande alors R+ DUF Dy INCLUS? ROT AND 


"ECRAN 1 sur cassette ?" (prévoir une cassette R> DUF Dz INCLUS? ROT AND 
vierge, bande amorce avancée). 
O= 1F 25 ?7ERROR THEN ; 
ADR+ FERMIS? ( a b c —-- adr) 
x Dy * *X ZX SWAF Dx à 
SWAF 2% + ; = 


Avoir terminé la description du dessin, effec- 
tuer la sauvegarde sur cassette par UPDATE 


Eteindre HECTOR, puis rallumer et charger B3X 
Initialiser CLEAR et COLD. 


ECRAN No 16 
FORTH QUIT d 
1 LOAD (va chercher sur la cassette : PLACER (na be --) 
l'écran et le compile) ADH+ TABLEAU + ! 3: 
revenir au B3X en tapant n'importe quelle tou- . + GS 
che suivie du RETURN, et enfin taper le pro- : LIRE ( abc n) 
gramme d'animation du dessin. ADR+ TABLEAU + € ; 
0] # \ sé LOTO —— 
MATRICE A TROIS DIMENSIONS en FORTH : STOCKER Ye 
4 ROLL 4 ROLL 4 ROLL PLACER ; 
DXx - Dv - Dz contiennent les dimensions du ta- : VIDER {XYZ _—) 


bleau. | 
SURTOUT sert de démonstration pour remplir et CR 3 FICK . OVER . DUF 
vider le tableau avec un nombre croissant de 0 LIRE . ?TERMINAL DROF ‘ 


à 999. : ?TBL ACTE QUI 


Exemple: >TBL SURTOUT remplit le tableau ” . 
TBL' SURTOUT affiche le tableau. : TBL5 ACTE NON 


us en 


ACTION lit ou écrit dans le tableau en fonction L ACTION ; 
de "ACTE" manipulé par :TBL et TBL:. Action acte & O= IF VIDER 
n'est utilisé que pour la démonstration de rl ete] ' 
SURTOUT. ELSE cpt & STOCKER 1 cpt + | 
Pour écrire des valeurs dans le tableau: THEN ; ui 
valeur x y Z PLACER ou 
x y z VALEUR STOCKER 
Pour lire une valeur dans le tableau: ECRAN No 17 
PAR : SURTOUT CFT NON 
x y Z VIDER 
Dz 0 
Exemples: 
DQ 1] 

10 5 5 5 PLACER met la valeur 10 en case 5 5.5 
20 6 6 6 PLACER met la valeur 20 en case 6 6 6 Dy 0 
6 6 6 LIRE lit la valeur de la case 6 6 6 DO I 

et la met sur la pile de données. 
5 5 5 LIRE + . lit la valeur de la case 5 5 5 x 0 

la met sur la pile, additionne avec la DO I 

valeur de la case 666 et affiche le ré- : 

sultat (30). OVER 4 FICK ACTION 
30 7 7 7 PLACER met la valeur 30 en case 7 7 7 AE 
7 7 7 VIDER affiche valeur de case 7 7 7 LS nee 


LOCP ; 


HECTOR HRX 
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LA. FUTURSYS ET FUTURLOG 


FUTURSYS 


FUTURSYS est un micro-ordinateur portable dédié 
à l'intelligence artificielle, ce qui ne cor- 
respond à rien tant que l'on n'a pas défini ce 
que l'on entend par le terme “intelligence ar- 
tificielle". A notre sens - et il y en a de 
nombreux autres - cette discipline consiste à 
reconstruire les capacités d'adaptation et de 
création humaines, celle-ci étant pour nous les 
meilleurs critères d'intelligence. 


Sur ce critère, il parait difficile de cons- 
truire des machines supérieures à l'homme, 
puisqu'elles seront toujours, elles et les au- 
tre machines qu'elles pourront engendrer, des 
produits de son intelligence. 


Ceci étant, si l'on fait aussi bien, on peut 
faire mieux et ces machines pourraient être su- 
périeures à l'homme au niveau de leurs perfor- 
mances: vitesse, capacité de travail, et la 
possibilité de les construire en série serait 
intéressante pour les mémes raisons, si tant 
est que l'éducation, ou la sensibilité propre, 
de ces machines puisse leur étre “apprise" ra- 
pidement. 


Si aujourd'hui nous sommes loin d'en être arri- 
vés à ces problèmes, nous allons cependant es- 
sayer de montrer en quoi FUTURSYS est moins é- 
loigné de cette intelligence que des systèmes 
pius classiques basés sur FORTRAN, COBOL, BASIC 
etc... 


Une première objection à ce que nous voulons 
démontrer serait de dire que FUTURSYS, comme 
comme tous les autres ordinateurs, fonctionne 
avec des suites d'instructions de langage ma- 
chine; proposition certes vraie, mais objection 
non fondée, car deux organisations différentes 
fondées sur le même assemblage de base (molécu- 
les) produisent des résultats fort différents à 
priori (homme et insecte, pour exemple). 


Nous ne dirons pas que des structures d'ordina- 
teurs autorisant un traitement plus parrallèle 
qu'aujourd'hui, seraient inintéressantes. 11 
n'en demeure pas moins qu'au prix d'une perte 
de rapidité certaine, un monoprocesseur pourra 
effectuer les mêmes tâches qu'un multiproces- 
seur. 


L'objet de FUTURSYS a donc été, en tenant comp- 
te de cette restriction, d'élaborer une archi- 
tecture, certes perfectible, mais cependant 
plus à même de rendre compte de certains phéno- 
ménes relevant, je pense, à ce que nous pensons 
de l'intelligence. 


LES PERCEPTS DE FUTURSYS 


En premier lieu, il semblerait qu'une carac- 
téristique de l'intelligence soit de pouvoir 
retrouver rapidement, dans un cerveau, l'ensem- 
ble, ou une partie de celui-ci, des images re- 
latives et donc peut-être intéressantes, à l'é- 


tat dans lequel se trouve le cerveau à cet ins- 
tant. 


De façon plus précise, cet état du cerveau 
pourrait être défini comme l'état électro-phy- 
sico-chimique du cerceau, conséquence actuelle 
des percepts (signaux reçus de l'extérieur) et 
de l'activité interne passés et actuels. 


Nous employons le terme image non au sens d'une 
vision, mais dans celui d'un ensemble d'élé- 
ments. 


En ce qui concerne le mot relatif, nous dirons 
que les images relatives à l'état du cerveau 
sont celles qui possèdent des éléments activés 
dans ledit état du cerveau. Nous essaierons de 
définir le mot activité en caractérisant les é- 
léments activés par le fait qu'ils ne sont pas 
dans leur état moyen ou qu'ils en changent .En- 
fin, un élément sera un neurone, ou un ensemble 
de neurones. 


PARALLELISME. FUTURSYS_ET CERVEAU 


Nous allons maintenant dresser un parrallé- 
lisme relatif entre un cerveau et FUTURSYS. 
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Les percepts de FUTURSYS sont les interruptions 
et les messages qu'il peut lire sur l'écran. 
FUTURSYS posséde également queiques neurones 
moteurs lui permettant d'écrire sur l'écran. 


Les images de FUTURSYS sont des arbres appelés 
faits. L'état de FUTURSYS est un arbre repré- 
sentant “l'expression à évaluer", plus l'en- 
semble des images ainsi que quelques registres 
internes pouvant modifier son comportement. 


Les images de FUTURSYS relatives à son état 
sont celles qui peuvent, sous certaines condi- 
tions, s'identifier avec l'arbre, ou une partie 
de celui-ci, représentant "l'expression à éva- 
tuer”. 


On peut faire plusieurs remarques: 


- tout d'abord, nous avons introduit le terme 
d'arbre: un arbre est un ensemble d'objets or- 
ganisés de la façon suivante: un objet quelcon- 
que de l'arbre a un père et # ou 1 ou plusieurs 
fils, pères et fils étant eux-mêmes des objets 
de l'arbre. Un seul objet n'a pas de père. Ce 
qui donne la représentation suivante: 


ot=pére(Q011)=pére(012) 


011=fiis(01)-=pére(0111) 


012-fils(01)=péêre(0121)-père(0122) 


O111=fi1s(011) 
0121=filSs(C012) 


à noter qu'avec FUTURSYS, les objets ayant au 
moins un fils sont toujours appelés des struc- 
tures. : 


11 apparait que l'organisation interne de FU- 
TURSYS est l'arbre (ou ensemble d'arbres); 
c'est une restriction nécessitée par des rai- 
sons d'efficacité pratique évoquées plus haut. 


- les images de FUTURSYS sont des arbres (les 
faits): il n'existe que deux types de relation 
entre deux objets, soit père, soit fils soit 
rine du tout: nous n'avons pas de relations a- 
nalogiques. J1 s'ensuit, d'une part, que les 
modifications des images se font sous forme de 
cassure où de fusion, et d'autre part, que les 
limites d'une image sont précises. 


- les images de FUTURSYS relatives à son état 
sont celles dont une partie bien précise s'i- 
dentifie à l'arbre “expression à évaluer”, ou à 
un sous arbre de celui-ci, priorité étant don- 
née aux sous arbres; ces conventions restricti- 
ves sont par contre très intéressnates pour la 
“compréhensibilité classique des calculs". 


Une autre caractéristique de l'intelligence se- 
rait de modifier “consciemment" ou non les ima- 
ges du cerveau. FUTURSYS a la possibilité de 
modifier les siennes “consciemment” (grâce à 
d'autres images, en utilisant celles-ci sous 
forme de connaissance explicite), c'est à dire 
d'une certaine facon, logiquement, mais n'a pas 
aujourd'hui celle de le faire “inconsciemment”. 
Cette restriction semble d'ailleurs commune à 
tous les systèmes opérationnels actuels; elle 
est due à la mauvaise connaissance des mécanis- 
mes d'apprentissage" humains, connaissance qui 
ne peut que s'améliorer. 


Après cette introduction sur les rapports hu- 
entre l'intelligence et FUTURSYS, nous verrons 
dans de prochains articles, l'organisation et 
le fonctionnement de ce micro-ordinateur. 


Systemes experts 


BASES DE DONNEES ET SYSTEMES EXPERTS 


par : 


Daniel LANG 
Philippe RAFORTHO 
Mohamed TOUAJ 


11 JINTEGRATION D'UN SGBD 
AU _SEIN D'UN SYSTEME EXPERT 


L'application présentée ci-dessous a été élabo- 
rée pour permettre à un système expert de pos- 
séder une base de connaissance imporatnte., Les 
informations contenues dans la base de données 
représentent la base de connaissance du système 
expert, et sont directement compréhensibles par 
celui-ci. Voici donc la présentation du SGBD 
Ensembliste VORAS. 


Développé par l'Université Technologique de 
COMPIEGNE depuis 1975, ce modèle est inspiré de 
la théorie des FRAMES et des RESEAUX SEMANTI- 
QUES; il part de l'idée de réaliser une décom- 
position sémantique du réel. Le réel est repré- 
senté en termes d'individus et de relations en- 
tre ces individus. 


Le modèle Ensembliste présente un format stan- 


dard ed représentation des données: 


- E: entités, objets concrets ou abstraits 
- P: propriétés 
- V: valeurs associées aux propriétés 


Tout élément d'information ayant des attributs 
uniques peut se mettre sous un format d'entité. 
Exemple: 


navire (modèle) navire.5 (objet de type na- 


vire) 
propriété.nom nom Clémenceau 
propriété.genre genre porte-avions 
Personne (modèle) 
propriété.nom 
propriété.prénom 
On distingue deux types de propriétés: 
- propriétés terminales: elles correspondent 


aux attributs de l'entité pour lesquels une va- 
leur "immédiate" est associée à celle-ci. Par 
exemple, dans l'entité Personne, nom et prénom 
sont des propriétés terminales. 


- propriétés de structure: ce sont des propri- 
étés dont l'information associée est une liste 
d'entités. Elles assurent le lien entre deux 
entités. 


Exemple: 


dans l'antité Navire, propriété terminale: 
nom, genre 
propriété de structure: capitaine 
d'où Navire.5 nom Clémenceau, genre porte- 


avions, capitaine personne.5 


Les Valeurs (V) associées aux propriétés sont 
des informations immédiates correspondant aux 
propriétés terminales d'une entité. 

Capitaine permet 
entité différente 


La propriété de structure 
d'associer un Navire à une 
Personne.5, cette dernière pouvant être impli- 
quée dans d'autres liaisons avec des informa- 
tions indépendantes de la notion de Navire. On 
peut supposer que cette même personne, Person- 
ne.5, a écrit un livre; une entité Livre.37 est 
associée à cette personne par une propriété de 
structure :Auteur. 


A chaque propriété de structure, une liaison 


inverse est créée automatiquement. 


Livre Livre.37 
(propriété terminale) Titre Titre La marine 
(à voiles 
(propriété de structure) Auteur Auteur 
(Personne.5 


Personne.s5 
Nom Durand 
Prénom 


Léon 


capitaine de Navire.s5 
Auteur de Livre.37 


Les objets Livre.37 et Navire.5 possèdent une 
une information en commun. Plutôt que de la re- 
produire dans chaque entité, cette information 
est synthétisée sous la forme de l'entité Per- 
Sonne.5 stockée de façon unique et indépendante 
ce qui facilite les modifications. 


Imaginons que le Clémenceau change de capitai- 
ne, il suffit de supprimer la propriété de 
structure entre Navire.5 et Personne.5 (propri- 
été de structure: Capitaine et liaison inverse 
Capitaine de) pour mettre en place le nouveau 
lien sur la personne du nouveau capitaine. 


MODELE ENSEMBLISTE (Méta Modèle) 


On définit les propriétés comme des objets uti- 
lsables par toute entité qui les possède comme 
attributs (Nom est une propriété commune à Na- 
vire et à Personne). On utilise le format en- 
Sembliste pour les modéliser et on y adjoint 
des propriétés ‘“système" pour assurer leur 
traitement par le SGBD. Ainsi on construit la 
propriété Nom comme une entité possédant des 
attributs fonction de saisie, fonction d'im- 
pression, opérateur de filtrage... 


L'élaboration de toute propriété terminale est 
facilitée par l'utilisation du Méta Modèle "en- 
tité propriété terminale" regroupant la liste 
exacte de ces attributs. Ces derniers sont spé- 
cifiques à la propriété de structure (comme Ca- 
pitaine) à l'aide du Méta Modèle “entité 
propriété de structure”. 


De façon générale, la création puis la modifi- 
cation en cours d'évolution des modèles sont 
facilitées par l'existence de Méta Modèles. 


ACC "INFORMATION 


Le mécanisme d'accès dans ja base de données 
ensemblistes est basé sur la mise en place 
(conjointement à la saisie des objets décrits) 


d'un jeu de points d'entrée sur certaines pro- 
priétés caractéristiques des entités. Les 
points d'entrée se définissent lors de la créa- 
tion du modèle de la propriété terminale. Le 
point d'entrée est une clé d'accès, 1l'informa- 
tion associée à cette clé est un chaînage in- 
inverse. Ce chaînage inverse pointe sur des en- 
tités ayant une propriété terminale dont la va- 
leur correspond à ce point d'entrée. 


Exemple: (Clémenceau (Nom de Navire,5 Person- 
{ne.25) 

(Titre de Livre.35 ... >) 
Dans cet exemple, Clémenceau est à la fois le 


nom d'un Navire.5 d'une Personne.25, et aussi 


le titre d'un Livre.35. 


Dans le cas de requètes simples, rechercher une 
entité ayant une propriété s'effectue en syn- 
thétisant le point d'entrée correspondant à la 
valeur associée à la propriété. On charge la 
liste associée, pointant directement sur les 
entités corrsepondantes (exemple qui a pour nom 
Clémenceau, on trouve Navire.5 et Personne.25). 
Pour des requêtes plus complexes, on fait in- 
tervenir une combinaison de points d'entrée. 


Une deuxième voie concerne le fiitrage sur un 
ensemble d'entités. On effectue un premier ac- 
cès par points d'entrée, puis on fiitre la lis- 
te des objets obtenus à l'aide d'opérateurs as- 
sociés aux propriétés terminales. 


exemple: quelle est la personne qui a pour nom 
Clémenceau ? 


LE SGBD VORAS: UNE AIDE AU SYSTEME EXPERT 


Les règles de production constituent une repré- 
sentation satisfaisante, car très modulaire, du 
savoir-faire. Cependant, plus la base de con- 
naissance est Vaste, plus les performances du 
du système deviennent médiocres. 

msi 
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L'idée principale du couplage d'un système ex- 
pert avec le SGBD ensembliste VORAS est de gé- 


rer l'ensemble des régles de production néces- 
saires au système expert, par un SGEBD. 
Chaque production correspond à un objet acces- 


sible de la base. Alors que dans la plupart des 
systèmes experts, les règles sont organisées en 
groupes associés à des sous-problèmes, dans un 
environnement Ensembliste il est facile de cré- 
er un système de production très important. Ce- 
ci se fait sans avoir à partitionner manuelle- 
ment les règles en classes. Dans le processus 
de contrôle, la phase d'extraction de la liste 
minimale des règles nécessaires à l'exécution 
d'un contexte est automatique. L'automatisation 
est rendue possible grâce aux possibilités 
d'accès aux productions sur des critères multi- 
ples fournis par les mécanismes propres à ce 
type de base. 


MECANISMES DE CONTROLE 


Les systèmes fondés sur l'emploi de règles de 
production se sont avérés très efficaces. Ce- 
pendant, lorsque la complexité du domaine visé 
s'accroît, les règles deviennent élaborées et 
très nombreuses. Ceci fait apparaître le pro- 
bilème du contrôle au niveau de l'exécution. 


Une premièr solution à ce problème, permettant 
de déduire et de réordonner l'ensemble des rè- 
gles à chaque cycle par examen de leur contenu, 
es d'utiliser les méta-règles. 


Une autre approche consiste à implanter le pro- 
cessus de contrôle en utilisant une grammaire 
de règles. 


Mais, les deux solutions impliquant l'examen 
des règles présentes en mémoire centrale à cha- 
que cycle, sont difficilement réalisables dans 
le cas de base de connaissance très volumineu- 
se. 


Cette 


étude propose une nouvelle approche, 


s'appuyant sur la structure d'une base de don- 
nées Ensembliste. Elle permet d'organiser les 
règles comme des entités dans une base de don- 


nées et d'utiliser le mécanisme d'interrogation 


associé à cette base, pour extraire à chaque 
cycle des sous-ensembles de règles pertinentes 
dans un contexte donné. Ainsi, les règles de 


production sont implicitement groupées en en- 
sembles virtuels. Une structuration sémantique 
des règles accessibles par les points d'entrée 
sur les informations qu'elles contiennent est 
établie. La gestion des associations entre rè- 
gles, qui est du ressort du SGBD VORAS, est en- 
tièrement automatisée et transparente pour l'u- 
tilisateur. 


MECANISME D'EXTRACTION 


Dans ce système, chaque production est un élé- 
ment de connaissance représenté dans la base de 
données et indexé sur son contenu (certains 
mots clés). Le mécanisme d'indexation est pilo- 
té par la base. 11 utilise principalement Île 
système de création des points d'entrée du 
SGBD. Toute modification du contenu des règles 
engendre une mise à jour automatique des listes 
de production associés aux points d'entrée. 
L'indexation est effectuée contrairement aux 
systèmes classiques sur plusieurs critères si- 
multanément. À la saisie, le système classe les 
règles dans des listes correspondant aux divers 
mots-clés qu'elles contiennent. A l'exécution, 
la diversité des possibilités d'accès aux rêè- 
gles est comparable à ce que l'on obtiendrait 
par l'unification sans impliquer le fastidieux 
examen de toutes les règles. 


STRATEGIE DE SELECTION 


Si l'on ne prend pas de précautions, le phéno- 
mène de saturation est inévitable dans un Ssys- 
tème important. L'augmentation des règles en- 
gendre un nouveau type de dépendance lié à 
l'ordre de placement dans la liste des règles à 
exécuter. 11 faut donc un mécanisme de straté- 
gie de sélection. Dans la plupart des systèmes 
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experts, un jeu de règles et un jeu de méta-rè- 
gles sont retirés de la base. Les méta-règles 
sont lancées pour traiter la liste des règles 
associées au même but. Le critère de sélection 
est au départ unique, c'est la notion de but. 
Alors que dans le système élaboré à l'U.T.C, ce 
critère est multiple et la sélection des régles 
est plus fine. L'ensemble des règles détermi- 
nées par la phase de retrait est donc plus res- 
treint, et le sméta-règles ne sont plus néces- 
Saires. En outre, le jeu de méta-règles risque 
de s'accroiître simultanément avec l'augmenta- 
tion du système réel pour aboutir à une satura-: 
tion totale, d'où l'inconvénient des méta-rè- 
gles. Le besion de réordonner la liste des réè- 
gles exprime le problème peu évidend de Leur 
indépendance. Le fait qu'une règle mérite d'é- 
tre placée avant une autre parce qu'elle a plus 
de chances d'étre exécutée est une forme de re- 
lation entre les règles. La situation devient 
délicate lorsque le nombre de relations de ce 
type croit, ce qui va de pair avec l'augmenta- 
tion de la liste des règles. C'est pourquoi 
dans le système étudié ici, le nombre de règles 
est assez réduit pour chaque situation, dans le 
cas contraire, on subdivise le problème en sous 
tâches. 


MODELISATION DES REGLES DE PRODUCTION 


Une règle est une entité (telle qu'elle est dé- 
finie dans le modéle Ensembliste) possédant en 
plus de la propriété Nom qui permet de l'iden- 
tifier, deux propriétés terminales: 


“ Prédicat "“ et " Action " 


Le but de ce modèle est de définir la liste des 
attributs des règles et ed guider leur saisie 
ainsi que leur mise à jour. (voir figure 1) 


INDEXATION DES REGLES SUR LEUR CONTENU 
11 convient de limiter le nombre de 


règles à 


brasser à chaque étape, c'est pourquoi on leur 
associe des points d'entrée sur les informa- 
tions qu'elles traitent. 11 est alors possible 


de les atteindre par l'utilisation du mécanisme 
d'accès à la base de données, et l'on peut ex- 
traire automatiquement à chaque changement de 
contexte le sous-ensemble optimal de règles. La 
mise en place de ces points d'entrée est effec- 
tué automatiquement lors de la saisie de la rè- 
gle, par une fonction qui examine les parties 
prédicat et action. Toutes ces opérations sont 
totalement transparentes pour l'utilisateur. 


PARTIE PREDICAT 


On crée un point d'entrée sur chaque variable 
correspondante à un mot-clé de la règle. Il per- 
met de regrouper les règles faisant référence à 
une même variable. Le principe est le suivant: 


Chaque fois que l'on rencontre un mot-clé 
dans une clause (par exemple CONTACTE), on vé- 
rifie s'il existe une entité variable qui porte 
ce nom dans la base. 


- Si oui, la règle (REGLE.37) est liée à cette 
(entité 
- Si non, l'entité est créée (VAR.16) et l'o- 


{pération de liaison est effectuée ensuite. 


On dispose alors d'un point d'entrée sur la va- 
raible par son nom (CONTACTL). Cette variable 
est liée à toutes les règles qui l'utilisent. 
C'est ainsi que l'entité VAR.16 est accessible 
dans la base par son nom CONTACTL qui constitue 
un point d'entrée. Sous cette entité, on re- 
trouve dans le champ Variable Prédicat la liste 
des règles de production qui se réfèrent à CON- 
TACL en tant que variable prédicat (VARP.DE RE- 
GLE.37). Si la règle est modifiée par la suite, 
et qu'une variable n'est plus utilisée dans une 
clause, le lien entre la règle et la variable 
sera suprimé, Cette opération est transparente 
et s'effectue lors de la mise à jour de la rè- 
gle. 


cod 


Exemple d'une règle : 


REGLE.37 


po: 


prédicat: (AND 
(NOT NULL CONTACTL)) 
(LTCARD CONTACTE 4) 

NOT (NULL CONTACT )) 


Friqure À. 


règle-contact-courant 


actions: CSETL ORIGINE (C+(GETM ORIGINE) (GETM PAS) )) 


(MOVEY CONTACT (LIST 
CSETL CONTACTL (CONS 


CGETM ORIGINE) 0 8)) 
(GETM CONTACT) 


CGETM CONTACTL ) 


variables prédicat (noté varp): 


VAR, 16 UAR.21 


variables actions (noté vara): 
VARD,.15 VARD,.3Z VAR.21 UAR.16 


VARD.15 
nom : 


VARA . DE : 


VAR .21 
nom: 
VARA. DE : 
VARP ,DE : 


VARD 


VARD.32 
ORIGINE nom : 
REGLE.37 VARA.. 


VAR lé 
CONTACT non: 
REGLE.37 VARF .D 
REGLE. 37 


nom-externe: variatie des 
propriétés-terminales: non 


VAR 


nom-externe: variatle \ue 
propriétés-terminales: nom 


ARTIE ACTION 


Le système construit un point d'entrée sur la 
variabie destination ainsi que sur chaque va- 
riable référencée dans l'expression évaluée. Le 
traitement est analogue au précédent. Après a- 
voir vérifié s'il existe une entité variable 
correspondant au mot clé, il v a crétion éven- 
tuelle et lien entre l'entité variable et la 
règle de production. Un point d'entrée existe 
sur le nom de la variable et permet par analyse 
de celle-ci de retrouver les règles qui s'y ré- 
fèrent. La seule différence réside dans le fait 
que pour les variables destination, l'entité 
créée possède un nom interne (VARD) distinct de 
celui des variables simplement lues en mémoire 
centrale (VAR), dans ce cas, le nom interne est 
le même que pour les variables prédicats. Cette 
distinction permet un affinage du critère de 


sélection. 


EFFICACITE 


Dans les systèmes classiques, soit la totalité 
des règles est présente en mémoire centrale et 
l'interpréteur doit brasser la zone des prédi- 
cats de nombreuses règles avant de trouver la 


- 
=. 


SAR NAS, 
PAR SANTE ES 


CONTACT 
: REGLE.37 


CONTACTL 
E: REGLE.37 


tination 
spoint d'entrée 


point d'entrée 


bonne, soit on a affaire à un méta-système qui 
améliore les performances dans 1a mesure où il 
trie une liste de règles de taille moyenne et 
figée. Dans le système présenté ici, le proces- 
sus d'extraction détermine une liste réduite de 
règles, de plus il n'est pas appelé systémati- 
quement à chaque cycle. 


En conclusion, ce système améliore très nette- 
ment les performances d'un système expert en 
lui permettant d'avoir une base de connaissance 
importante. Néanmoins, pour l'utilisation du 
point de vue des bases de données, VORAS impose 
un nouveau formalisme, ce qui interdit l'utili- 
sation du modèle relationnel. Cet inconvénient 
est amplifié par le fait que ce modèle n'existe 
pratiquement qu'au sein de l'U.T.C. Nous pou- 
vons de plus poser la question suivante: est-ce 
que le modèle ENSEMBLISTE est au moins aussi 
puissant que le modèle relationnel ? 
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